
oxrr 


08 / 17/74 0453 


ABEL I DENT 

OH FILE BLOCK NUMBER / USER PACK 
IGB FILE SLOCK NUMBER / NUMBER 0 
EVICE TYPE 


NUMBER OF USERS REGISTER FILE LGC 
PROGRAM LOADS AT 4000B 
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CD 


* v v v v •¥■ v nr -£ v v v -r v v v nr nr v 'r nr v v nr nr nr nr nr ? /* nr nr nr t v *f 

FILE CONTROL BLOCK DEFINITIONS 


A* nr 


r r r-r t t x r if 4* r ^ 



0 

I 


COREP+1 
4 



ACCOUNTING WORD {MUST BE 0) * 
LOAD POINT BLOCK * 
CORE POINTER IF NON-ZERO * 
IF BIT23 = 1, CORE BLOCK HAS * 
BEEN WRITTEN INTO * 
BLOCK NUMBER OF THE CURRENT BLOC* 
CURRENT POSITION POINTER * 
(REL. POSIT. WITHIN BLOCK CBP) * 
BIT23 SEZ READ-ONLY * 
8IT22 SEZ AT LOAD POINT * 
SIT21 SEZ END OF DATA * 
8IT20 SEZ FILE NARK JUST READ * 

8IT18 SEZ BINARY RECORD PROCESSE* 
8IT17 SEZ A BNOR MAL/UNAVAILABLE * 
BIT 16 SEZ ADDRESS ERROR * 
BIT15 SEZ SAVED FILE * 
NUMBER OF BLOCKS BEYOND * 
THE CURRENT BLOCK * 
END POSITION POINTER * 
BIT22 SEZ THE FILE HAS CHANGED * 
8IT21 SEZ POSITIONER READY * 
BIT20 SEZ DESTRUCTIVE READ * 
FILE DIRECTORY * 
BITS 15-18 CONTAIN THE HT * 
BITS G0—1A CONTAIN END POSITION * 
TOTAL LENGTH IN BLOCKS * 


BII16 


ADDRESS ERROR STATUS BIT 


3 

O 

o 

o 

o 

o 
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o 

o 

o 
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o 

o 

o 
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o 
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o 
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V T V V V "4~ V '/■ 

v v v v 4* 4' 4* 4* 4' 

V V 4' V 4* 4' V 4* 4* V V V 4r TT V V 

4' v v v 4' 4- v v 4' 4' 4' 4- v v 4* 4- 4* 4* 4* 4r 4* 4~ 4r 4* 4* 4*- 4* 4- -v 4* 4’ 4r 4* v v -v 

vt v 





6 i 

-v- 




4A 





62 

'«V 

ENTER WITH 


-v 





6 3 

v 

X2 = BUFFER ADDRESS <IF 

A MOUNT REQUEST) 

* 





o4 

V 

X3 = RETURN ADDRESS 


4* 





65 

r 




# 





66 

V 

THIS CODE MAKES THE ASSUMPTION IN SOME AREAS THAT IT IS 

& 





67 

6 8 

. " 7 0 

* 

RUNNING 

ON LEVEL ONE 


¥ 

-j* 






4' 4* 4" 4* v* 4* -v- 

4* 4~ 4' 4r 4 - ~r- 4r 4' 4* -A 4r 4r 4r 4r 4* 

V V T T V T V 4 1 V 4 r 4‘ V V -T- 4' V T Y V r T V -T T T 'T V 4r V V V 

Z & & * 


00000 P 



71 

7 2 

MSFMOUNT 

£QU 

4* 



0 Li □ U 0 

47204445 ' ■ 



73 


STI 

BUFF ADD » X2 

SAVE THE BUFFER ADDRESS 


0 0 001 

47304353 



74 


STI 

EXIT ADD * X3 

SAVE THE RETURN ADDRESS 


i) U U L) Z 

00704507 



7 5 


RTJ 

CHECK-UN 

CHECK FOR UNEQUIPPED UNITS 


0 0 0 0 3 

20004445 



7b 


LDA 

BUFFADO 

DID WE HAVE, ft MESSAGE TO LOOK 

AT 

0 0 0 0 A 

03004327 



77 


ft Z J * E Q 

CHECEXIT 

JUMP IF NOT 


0 0 0 0 5 

12000002 



78 


SHA 

2 

CONVERT TO CHARACTER ADDRESS 


0 0 0 06 

46 0 0 4401 



79 


SCHA 

LACHADD 



0 0 0 0 7 

14100004 



80 


ENI 

4, XI 

START AFTER THE FOURTH CHARACTER 

00010 

0070440Q 



31 


RTJ 

LACHIT 



0 0011 

04600073 



8'2 


ASE 

7 3 B 

MUST BE A COMMA 


0 0 0 12 

01004403 



6 3 


UJP 

hRRQR 



0 0 0 13 

14477777 



84 


ENA j S 

-0- 



0 0 0 14 

01004021 



35 

86 

87 


UJP 

PACK0EV2 




04015 



PACKOEV 

EQU 

■ 



00015 

53600000 



83 


TAX 

X 2 

SAVE CURRENT DIGIT IN X2 


0 0 0 16 

14600012 



89 


.ENA 

10 



0 0 017 

50004434 



9 0 


MU A 

NUMBER 



0 0 020 

53240000 



91 


AIA - 

X2 

ADD IN CURRENT DIGIT 



04021 



92 

PACK0EV2 

£ i4 U 




0 0 0 21 

40 00 44 34 



9 3 


STA 

NUMBER 



0 0 022 

00704400 



Q; .£|. 


RTJ 

LACHIT 



0 0 0 2 3 

05600012 



95 


ASG 

10 



0 0 0 2 4 

01004015 



96 


UJP 

PACKOEV 



00025 

04600073 



q j 


ASE 

738 

DELIMITER MUST BE A COMMA 


0 0 026 

01004403 



93 


UJP 

ERROR. 



0 0 027 

U 07 0 44 0 0 



99 


RTJ; 

LACHIT 



0 0 0 3 0 

04600023 



too 


A S £ 

238 

HOST 3E C 


0 0 Oil 

01004403 



101 


UJP 

ERROR 



0 0 0 3 2 

U 07 U 44 0 0 



102 


RTJ 

LACHIT 

GET CHANNEL NUMBER 


0 0033 

14700010 



103 


ENQ 

108 



0 0 034 

0360 44 03 



10 4 


AQJ.GE 

ERROR 



0 0035 

42022211 

04442' 

i 

10 5 


SA.CH- 

CHANNEL 



0Q036 

00704490 s 



1.0.6 


■ RTJ 

LACHIT 



0 0 0 37 

04600025 



10? 


ASE 

.250 

MUST 3E E 


0 0 040 

01004403 



10 8 


UJP 

. ERROR 



0 0 0 A 1 

00704400. 



10 S 


RTJ 

LACHIT 

GET EQUIPMENT NUMBER 


0 0 042 

03 6 0 4 4 0 3 



11.0 


AQJt 6E 

ERROR . 



0 0 043 

120:0 00 0 3 



Ill 


SHA 

3 . • 



0 0044 

42022212 

0 4 4 4 £«, 

2 

112 


S ft C H 

EQUIPMENT 



0 0 045 

00704400 



113. 


RTJ - 

LACHIT 



0 0 046 

046 0 0 0 64 



il 4 


ASE 

64 B 

MUST BE U 


0 0 047 

01004403 



115 


UJP 

ERROR 



0 0 050 

OUZO 44 0 il 



116 


RTJ 

LACHIT 

GET THE UNIT NUMBER 


U 0 06 1 

0 5 6 U 4 40 3 



il 7 


AQ3 * GE 

ERROR 



0 0 052 

16400010 



ilci 


X0A,S 

300108 

SET IN THE STATUS FOR AN 854 


0 0 053 

42022213 

04442 

3 

119 


SACH 

UNIT 

CHARPOS » XI 



0 0 054 

47104444 



120 


STI 

SAVE THE CHARACTER POSITION 


0 0 055 

20004434 



121 


LDA 

NUMBER 

CHECK IF WE WANT THIS PACK 


00055 

14177777 X 



122 


ENI 

MSUNITS * XI 



Q 0 0 5 7 

1457777 7 



123 


ENQ i S 

77777B 



0 0 0 6 0 

06177777 X 



124 


MED 

MSfNUMB »i 



0 0 0 61 

01004403 



12 5 


UJP 

ERROR 

WE DONT WANT THIS PACK 


000&2 

47104271 



126 


STI 

MSFPOS j X.1 

SAVE THE POSITION IN MSFNUMB 


0 0 0 33 

14777000 



12 7 


ENQ 

77 Q 0 08 

LOOK FOR THIS CONTROLLER 


0 0 064 

27004442 



126 


LDL 

C0NC00E 

LOAD THE CONNECT CODE 


0 0 065 

14177777 X 



129 


ENI 

NUMDKCONt XI 



0 0 066 

06177777 X 



13 0 


MEQ 

DKCQNTAB,! 



0 0 067 

01004403 



131 


UJP 

ERROR 

CONTROLLER IS NOT ON LINE 


00070 

14177777 X 



132 


ENI 

OKSTATBL » XI 

LOOK TO SEE IF THE DEVICE HAS 

A P 

0 0 0 71 

14777007 



133 


ENQ 

77007B 

LOOK AT CHANNEL* EQUIPMENT * AND U 

000 72 

27004442 



13 4 


LOL 

CONCODE 



0 0 0 73 

06177777 X 



135 


HEU 

DKSTATABtl 



0 0 0 74 

01004076 



13 6 


UJP 

♦-Z+-2 



0 00 75 

01004403 



137 


UJP 

ERROR 



0 0 076 

14177777 



13 8 


ENI 

77777B,Xi 




0 

O 

O 

o 

o 

o 

o 

o 


o 


o 


o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 
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0 0 0 77 

2 0 10 0 0 7 3 

V 

-A 


13 9 

LOA , 

DKSTATAB,X1 

□ 010 0 

03304x113 



14 0 

AZJ,LT 

*-Z*3 

0 0 101 

02104077 



141 

I JI 

*-Z-2,Xl 

0 0102 

01004403 



142 

UJP 

ERROR 





143 



0 010 3 

14300000 



144 

ENI 

0 » X 3 

0 0104 

20377777 

X 


145 

LD A 

AR'RAYTBL* X3 

0 0105 

0 3 30 411.1 



146 

AZJ t LT 

*-Z + 4 

00106 

10377777 

X 


14 7 

ISI 

M S U NIT M1 » X 3 

00107 

01004104 



148 

UJP 

♦-Z-3- 

0 0110 

01004403 



14 9 

UJP 

ERROR 





ISO 



0 0111 

14600000 



151 

ENA 

0 

0 0112 

40300104 

X 


152 

STA. 

ARRAYTBL,X3 

0 0113 

53300000 



153 

TIA 

X3 

0 0114 

12000017 



154 

SHA 

15 

0 0115 

35004442 



155 

SSA 

CONCODE 

OOllo 

40100077 

X 


156 

STA ■ 

OKS fATAB,X1 

0 0117 

4 71U 42 64 



. . . 15 7 

' ST I 

DKSTABXi> XI 





15 8 



0 0120 

21077777 

X 


15 9 

LDQ 

BIT 2.3 

0 0121 

54104271 



16 0 

LDI 

MSFFCS,XI 

0 0122 

20177777 

X 


161 

LOA 

MSFBLK »XI 

0 0123 

53500000 



162 

TAI 

XI+CN8LK 

0 0124 

41100000 



16 3 

STQ 

0»Xi+CNBLK 





16 4 



00125 

14300004 



165 

EiVl 

4 * X 3 

0 0126 

00777777 

X 


1 a a 

RTJ 

GET MEM 

0 0127 

44004443 



167 

SWA 

F.REEBLK 

0 3130 

14177760 



. IS3 

ENI 

-15 ,X1 

0 0131 

21104612 



169 

LOG 

FREECOPY+i5 

0 013 2 

41300000 



170 

STQ 

0 X x 

0 013 3 

15300001 



171 

INI 

1, X 3 

0 0134 

02104131 



172 

I JI 

* - Z - 3 ■* X .1 

00135 

14200017 



1 J 3 

ENI 

15 , X2 

00136 

163777?o 



174 

I MI 

-1, X3 

0 013 7 

23423064 


Oho!3 0 

.1 ? 5 

LQCH 

RELGCTAB.X2 

0 0110 

0470 000Q 



17:. 

QSE 

0 

0 0141 

34300000 



1/7 

ft.LO 

li, X 3 

0 0142 

0 260413 6 



17 8 

I JO. 

^-2-4.X2 

0 0143 

77650301 



179 

PFA 

PF L QC 

0 0144 

343 0 GO 0 4 



18 0 

i fl 4 # 

RAO 

SETPF,X3 

00145 

14604155 



1M i*. . .. . 

"-■■■■ AIK ■. . ..■■> 

EM A 

CONRETRN 

0 0146 

4430 SO06 



16 3 

Sill 

H A I H RET » X .5 

0 0147 

14703720 



16 4 

EMQ 

2 . o O' e 

0 016 0 

54IQ 4442 



■ X 65 

k. DI 

CON CODE t>:i 

0 0:151 

47104165 



X (S o 

3TI 

; 1 J N N i A .1 

0 016 2 

5420.4353 



187 

LDI 

EXIT A0D,X2 

0 0153 

1530QQ05 



IS 8 ■ 

INI 

COMCALL,X3 

0 0154 

0 i 07 7 777 

.X ... 


169 

UJP 

C OHIVt C 1 









bBflP PRISemt 

LOOK THUR ALL POSITIONS FOR THIS 


ASSIGN A UNIT NUMBER TO THE OEVIC 
JUMP IF DEVICE IS NOT BEING USED 


NO TABLE ENTRIES 


SAY THE DEVICE IS PRESENT 
DEVICE NUMBER TO A 


SAVE THE CONNECT CODE 
SAVE THE POINTER 

REMEMBER THAT WE ARE PROCESSING 
THE MOUNT REQUEST FOR THIS DEVICE 
FIND THE CONTROL BLOCK 


GET 16 WORDS OF FREE MEMORY 

SAVE THE BLOCK ADDRESS 

MOVE THE NEEDED INFORMATION 
TO THE BLOCK 


RELOCATE THE INFORMATION 


SKIP IF NO RELOCATION 


SET THE CUR KELT PF LOCATION IN 
THE FREE STORAGE BLOCK 

SAVE THE RETURN ADDRESS 

SAY- WE WANT THE CHANNEL FOR 2 SEC 

LOAD THE CONNECT CODE 

SAVE f HE CONNECT CODE 

l U A 0 IHL RETURN ADDRESS IN CASE T 

THE CONTROLLER IS BUSY 
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MBLcR/C 
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V V -v "f- T -I* V V V 

V V V V V* V V V 

V V 

V V V W W V "V V V V v -»* -v* -v V V V T 

v v ‘f t v v r v v v v v v v r -r v t y -r v v v t v v ¥ v ^ r v 'r v ^ v 





192 

v 









19 3 . 

'V* 

RETURN 

TO 

HERE AFTER OBTAINING THE PROPER DISK CHANNEL * 





194 





■v 





195 


NOTE THAT 

WE MAY NO LONGER BE 

ON LEVEL ONE * 





196 

•%£> V T “Y , Y **Y. T "Y V 

« M „ M w „ „ „ 


«Y» -y* ^ y A* "%?*■ Y At* V Y Y <*y y y Y *Y Y 

-v 

v v v v v v v v v v *i» v t ■»* nr v *F v v -v v “* v v v -r r v v v v v v ^ Af 





198 






0 415 5 



199 

GONRETRN 

EQU 


*-z 


0 0 15 5 

47204353 



200 


STI 


EXITAOD,X 2 

SAVE THE RETURN ADDRESS 

0 0156 

54104443 



201 


LDI 


FREEBLKjXl 

LOAD THE FREE STORAGE ADDRESS 

0 0157 

201 U 0016 



2 02 


LDA 


PFS AVE , XI ’ 

REMEMBER WHAT WAS IN PF 1 

GU 160 

44004352 



20.3 


SWA 


EXITPFi 

SO WE CAN RESTORE IT 

0 0161 

54104271 



204 


LDI 


MSFPQS,X 1 

HAS THE DEVICE BEEN UNEQUIPPED 

0 0162 

20100122 

X 


205 


LDA 


MSF 8 LK , XI 


00163 

03304202 



2 0 6 


AZJ,LT 


CALUNCQN 






20 7 






0 0164 

143 U 0144 



208 


ENI 


106 »X 3 

TRY TO REALLY MAKE THE CONNECT 


04165 



2 0 9 

CONN 

EQU 


*-Z, 


0 0165 

77000000 



210 


CON 


IMPURE ,0 


00166 

02704165 



£11 


I 3 D 


-- 2 - 1 .X 3 


00167 

77200001 



212 


EXS 


0001 B,SENSE 

CHECK FOR READY 

0 0170 

771 a 0 002 



213 


EXS 


0002 B,SENSE 

ANG HOT BUSY 

0 0171 

02704165 



214 


130 


CONN »X 3 


00172 

14604206 



215 


ENA 


UNCONRET 


0 017 3 

02704202 



216 
o 1 T 


XJD 


CALUNC 0 N»X 3 

JUMP IF WE CONNECTED OK 

0 0174 

00704355 



.. JL k . 

218 


RT 3 


TAKEOFF 

TAKE THE UEViCE BACK OFF LINE 

0 0175 

14604177 



219 


ENA 


Y-Z* 2 : 

ENTER THE RETURN ADDRESS 

0 017 b 

01004202 



220 


UJP 


calungom: ■ 

GIVE UP THE CHANNEL 

0 0177 

11022346 


04471 2 

221 


ECHA 


GANICON 

SAY WE CAN*T CONNECT TC THE QEVIC 

0 0 2 0 0 

14700035 



222 


■ENQ 


CANTCONL 


0 0201 

01004325 



223 

224 

225 


UJP 


GALLOP 



0 4202 



.QA.LUNCQ.N 

EQU . 


» - 2 


0 0202 

54204443 



226 


LDI 


FREEBLK,X 2 ; - V 


0 0 2 0 3 

44200006 



22 7 


SWA ' 


.HAINRET , X2 


0 0 2 0 4 

15 20 0 0 04 



2,28 


INI 


SETPF., X 2 : 

ENTER THE RETURN FQF UNCON 

0 0205 

01377777 

X 


229 


... .. U J P.. . : ■ 


UNCON..: 1 

GIVE UP THE CHANNEL 





230 







0 42 0 6 



231 

UNCOiiSET 

EQU 


*-Z 


0 0206 

541042 1 1 



232 


LOI 


MSFPQS,XI 

MSFBLK , XI 

HAS THE DEVICE BEEN UNEQUIPPED 

0 0207 

2 010 016 ?. 

X 


2.33 


.LDA. . . . 



00210 

03304327 



2 4 

• He' 




CHEGEXIT 

JUMP IF IT HAS 

0 0 211 

77650001 



c, * > S' 

■26 Q 


: ',pfa 


PFL.OC 

GET THE CORE ADDRESS WE ARE USING 

00 212 

1470 00 0.0 



a ~4 y 
i, .* 


.. ,'EHQ-■ 


: 0 


0 0213 

i 3 '3 7 7 7 6 6 



238 


S H A Q 


£ Ai rf 1 * * 4 JS 

-tSTStii-d 

SAVE ADDRESS IN HIGH Q 

0 0 214 

6 4 10 4 2 o 4 



239 


$ O T 

*w. 


OKSTABX 1 , X .1 


0 0 215 

2010 011 a 

X 


2 4 0 


I n 4 

L« eHS . 


OKSIATAS,XI 

LOAD THE CONNECT CODE 

0 0216 

1207776 a 



241 


SH A 


-is:. 

EXTRACT UNIT NUMBER 

00217 

13077771 



242 


SHAQ 


-6 . 

MERGE SECTOR ADD WITH CORE ADORES 

00220 

15700700 



.243 


I.'NQ 


LABEL 


00221 

54304443 



. 244 


LSI 


FREEBLK,X 3 

LOAD THE ADDRESS OF THE FREE STOR 

03222 

20004573 



245 


LDA 


FREEC 0 PY+A 3 AVE 

RESTORE THE JUMP IN ASAVE 

0 0223 

5334 0 O' Q 0 : 



2 4 b 


. 41 A 


X 3 

RELOCATE INTO THE BLOCK 

0 0 224 

40300000 



247 


STA 


ASAVE,X 3 


0 0 225 

14604243 



246 


C. i': A 


IORET 

SET THE RETURN ADDRESS 

00226 

44 3 0 0 0 0 5 



249 


SNA 


MAINRET,X 3 

SET THE RETURN ADDRESS 

0 0227 

15300001 



6 0 


INI 


: SAVEA,X 3 


0 0 23 0 

14277777 

X 


251 


■ ENI 


MONREAD,X 2 

ENTER 10 TYPE CODE 

WE WANT SECTOR ZERO 

0 0231 

■14600000 



252 


ENA . 


0 

00232 

14100100 



253 


ENI 


64 , Xi 

READ IN THE- FIRST SECTOR 

0 0 2 3 3 

00777777 

X 


25 4 


RTJ 


c- r{f 

FRE£BLK,X 3 


0 02 34 

54304443 



255 


LDI 


LOAD THE FREE STORAGE BLOCK ADORE 

00235 

20300016 



25 6 


LDA 


PFSAVE,X 3 


0 0236 

21004600 



257 


LOQ 


APFLOC 

LOAD A APF PCLOC INSTRUCTION 

0 02 37 

41300016 



258 


STQ 


PFS AVE,X 3 

STORE THE APF IN THE BLOCK 

0 0240 

54204353 



25 9 


LDI 


EXITAQO,X 2 

LOAD THE RETURN ADDRESS 

U 0 2 41 

0130 0016 



260 

- 

UJP 


PFSAVE,X 3 

AND EXIT 


Q 

G 

O 

O 

o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 
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263 

V V V V *V T V -V V 

V 

Y v nr nr v v v v 






264 

r 

RETURN 






2 6 5 

V 


nt i 





26 6 . 

nr 

NOTES 

v sir 





267 








269 



O 





270 



0 0242 

01004406 



271 


UJP 



0 42 43 



272 

I0RET 

EQU 


00243 

47304353 



273 


S f I 

O 

0 0 244 

54104271 



274 


LDI 

00245 

20100207 

X - 


27 5 


LDA 


0 0 246 

03304327 



276 


AZJj LT 


0 0 2 4 7 

14100077 



277 


ENI 

o 

; 00250 

14477777 



27 6 


ENA j S 


0 0251 

36104700 



27 9 


SC ft 


0 0252 

02504251 



28 0. 


IJO 


0 0 253 

03104410 



281 


A Z J» N E 

o 

1 GO-254 

06304410 



282 


A Z J ♦ L T 


0 0 255 

25004700 



28 3 


L.DAQ 


0 0256 

•j S 0 0 4 4.3 2 



284 


SBAQ 


00257 

13400000 



235 


SCAQ 

o 

0 0 260 

03104410 



28 6 


AZJ,NE 

0 0 261 

20004702 



28 7 


LDA 


0 0 262 

31004434 



288 


SBA 


0 0263 

03104410 



269 


AZJ»NE 

o 





290 







291 

nr nr .nr nr nr nr nf- nr 

»•£•» nr nr nr nr n^ nr nr 







? 9 3 

nr 


o 





294 

295 

nr 

Y 

AT ■ THIS 






297 

v nr nr n£ .nr nr nr nr nr 

& it & & 

o 





29 3 





04264 



299 

QKSTABX1 

EQU 


. 0 0.2 o 4 

14100000 



3 a o 


■ENI ■ 

o 

0 0 2 5 5 

20100215 

X 


301 


LDA 

'0026 6 

17477077 



302 


ANA jS 

U 0 267 

35004707 



33 3 


SSA 


0 027 0 

4U10 0 2 6 5 

X 


30 4 


STA 



04271 



■30 5 

MSFPQS 

EQU 

o 

00271 

141000 0 Q 



30 6 


ENI ■ 

0 0272 

13000030 



3 0 7 


SHAQ 


0 0273 

2 0100245 

x 


3 0.8 


LDA 


0 0274 

5360000U 



3 0 5 


TAX 

o 

0 0 275 

41200000 



310 


STQ 


0 02 76 

146 0 0 0 O' 0 



311 


ENA 


0 02 77 

40203005 



312 


STA . ' 


0 0 300 

144 7 7 776 



313 


ENA, S 

o 

0 0 301 

3407777? 

X . 


314 


RAD 


0 0302 

2Cl 0 0470 3 



315 


LDA 


0 03 03 

40200007 



316 


STA 


0 0 304 

15 6 0 0 0 0 i 



317 


INA 

o 

0 03 05 

40200003 



318 


STA 

0 0306 

20077777 

X 


319 


LDA 


0 0 3 0 7 

35200004 



32 d 


SSA 


0 0310 

40200004 



321 


STA 

0 

0 0 311 

20100060 

X 


32 2 


LDA 

00312 

40200001 

4 / 


323 


STA 


00313 

35077777 

X 


324 


SSA 


00314 

4 Q10 0 311 

X 


325 


STA 

o 

00315 

37077777 

X 


J 326 


LPA 


00316 

14100004 



32 7 


ENI 


0 0317 

13077747 



32 8 


SHAQ 

' 

00320 

51077777 

X 


329 


OVA 

o 

■ 

0 0 321 

43422330 


0446b 0 

330 


SQCH 

00322 

02504317 



331 


IJO 






332 




0 0323 

11022316 


U 4 4 6 3 2 

333 


ECHA 

o 

0 0 324 

14700030 



334 


ENQ 


04325 



335 

GALLOP 

EQU 


00 325 

14204327 



336 


ENI 


0 0 326 

01077777 

X 


3 3 7 


UJP 

o 





33 8 




0 43 2 7 



339 

CHECEXIT 

EQU 

o 

0 0 327 

i 

00704507 



34 0 


RTJ 


v v v v v v r v v v V' v v 'r v v v v v v v v t 'f~ v v v -v 'f v nr v 'v -v v */■ v v v ^ v v v v t -v •? v t v v v *r -r v 

* 

HERE AFTER READING IN THE DISK LABEL * 

v 

PROGRAM IS RUNNING ON LEVEL ONE AGAIN * 

■ ■ -v 

v v v v v v t A* v ■5“ v v v 'r v v 'r v v nr t t •'»* t v v t v v 'A v "V -r -v -v v v v ^ ■v v v v t v v t if - 'F ^ vvy 'F "f 


BADREAD ERROR READING IN THE LABEL 

*-Z 

£XITAB0 »X3 SAVE THE RETURN 

MSFPOS,Xl LOAD THE POSITION IN MSF8LK 

MSFBLK»X1 

CHECEXIT JUMP IF DEVICE HAS BEEN UNEQUIPPE 

1008-1,XI CHECK THE LABEL FOR PARITY 

-G 

LABELBUFjXi 

Xi 

BADLABEL JUMP IF BAD LABEL 

badlabel 

LABELS UF +MSLI DEN CHECK FOR PROPER LABEL 

OS3USER 
0 . 

3 A ° l A 8 E L 

LABELBUF+MSLLF8N LOAD THE USER PACK NUMBER 

HUMBER 

BADLABEL 


nr nr 2g. £** £g* 'v> nr nr nr nr ~r ■%- nr y nr y nr y nr nr nr nr nr nr v nr nr nr nr v nr y yy.y-y y nr n&- nr nr y nr nr 

POINT WE HAVE DECIDED TO LET THE USER HAVE THE DEVICE * 

* 

4“ ^ ^ ^ ^ ^^ ^ ^ ^ ^ nr n? 1 ^ nr “T nf- “A ^ nr “** n« ^ nr nr nr 'nr nr nr -nr n ; y y ^ y y ^ 


■*~Z- - 
IMPURE,XI 
OKSTAT A8 * Xi 
770 77B 

LABEL8UF+.MSLQEV 
QKS.TATAB,XI 
*-Z 

•■IMP-URE , XI 
24 

MSF8LK,XI 
X2+CN8LK 
Q f X2+CN8LK 
0 

BLKR,X2+CNBLK 

— I 

SCSFAM 

LABEL.8UF+MSLHF8N 
TFL»X2 + CNBLK 

1 

CBPt X2 + CNBLK 
Af B 

CPP»X2+CNBLK 
CPF» X2+CN8LK 
MSPNUMB,XI 
L P j X2+CNBLK 
BIT 22 

MSFNUMS, XI 

NBIT22 

4 , X1 

-24 

DIO 

DEVON,XI 
*-Z-3>Xi 

DEVGKMES 

DEVOKMSL 

*-Z 

r-Z + 2»X2 
OPM SG 

*~Z 

CHECKUN 


ENTER THE POSITION IN DKSTAB 
LOAD THE CONNECT CODE 
CLEAR THE TYPE BIT 
SET IN THE REAL TYPE BIT 
SAVE THE CORRECT CONNECT CODE 

ENTER POSITION IN MSFNUMB/MSF3LK 

SAVE CONNECT CODE IN Q 

LOAD THE POINTER TO THE CONTROL 8 

SAVE THE CONNECT CODE IN THE CONT 
SET THE NALL CLOCK TIME TO ' , 

ZERO FOR THE ACCOUNTING 

TURN OFF THE NOISE 

LOAD THE NUMBER OF BLOCKS ON THE 

GENERATE AN ILLEGAL CURRENT SEEK 

LOAD THE ADDRESS ERROR BIT 
AND SET IT INTO THE STATUS TO 
FORCE THE USER TO DO A SEEK 
LOAD THE PACK NUMBER 
SAVE IN THE CONTROL SLOCK 
REMEMBER THE PACK NUMBER 
TO PREVENT SOME ELSE WANTING THE' 
SAME PACK 
/ 


PRINT OUT DEVICE IS MOUNTED 


HAVE ANY DEVICES BEEN UNEQUIPPED 


& 

a> 

o 

a 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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00330 

20004443 
14 3 U 0 0 0 4 


341 


LDA 

F'REEBLK 

0 0 3 o 1 


342 


ENI 

4^X3 

0 0 332 

04600000 


34 3 


ASE 

0 

0 0 3 3 3 

00777777 

X 

344 


RTJ 

FREEMEN 

0 03 34 

47004443 


345 


STM 

FREE BLK'» 0 

0 0335 

20004445 


346 


LDA : 

BUFFAOD 

0 0 336 

14300005 


34 7 


ENI 

5 s X 3 

01)3 37 

04500000 


343 


ASE 

0 

0 0 340 

00700333 

X 

349 


RTJ 

FREEMEN 

0 0341 

47004445 


350 

351 

35 2 


STI 

QUFFADD 5 0 

0 0 342 

14377777 

X 


ENI. 

IDLE,X3+PSA 

0 0 343 

53130035 


35 3 


TMI 

NUf XI 

0 0 344 

01004351 


35 4 


UJP 

*-~Z + 5 

0 0345 

14477777 

X 

355 


b N A » S 

NMTWAIT 

0 0346 

00777777 

X 

356 


RTJ 

IOCLEAR 

0 0 347 

2U300000 


357 


LDA 

O tX3 + PSA 

00350 

53700000 


356 


TAX 

XS+PSA 

a 0 35 i 

02504345 


35 9 


IJO 





3*6 0 





04352 


361 

EX IIPFI 

EQU 

•” -1 

0 035 2 

14 6 Q 0 0 0 0 


362 


ENA 

IMPURE 


0 4353 


363 

EXITADO 

EQU 

v -—2 

0 0 353 

14300000 


3 64 


ENI 

IMPURE,X3 

0 0 354 

01077777 

X 

365 


UJP 

MOUNTRET 



FREE THE BLOCK OF FREE STORAGE 

SKIP IF WE NEVER ASKED FOR THE ST 

FORGET WE EVER HAD IT 

LOAD THE ADDRESS OF THE REQUEST M 

SKIP IF NO BLOCK PRESENT 

START WITH IDLE AND CLEAR 
MOUNTING WAIT FOR ALL USERS 


ADVANCE TO THE NEXT USER 


TELL OPMSG WHAT TO PUT IN THE 
PAGE FILE 

ENTER THE RETURN ADDRESS 
NOW EXIT 
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v v -»« v v v -r v 

V V V V V V ^ V V 

v v v -r v v v v v v -v t v v v v v v v v 

v A,t Ar V r -v- r v v v v v v v 'r v -r r v Hr v v r v Ar v v v -V* '«* -v v ^ v -r v 




36 8 

* 







36 9 

r 

ROUTINE 

TO CHANGE THE TABLES 

SO THAT A UNIT IS TAKEN OFF LINE * 




370 

r 



¥ 




3 71 

•V 

RETURNS 

WITH CNBLK POINTER 

IN XI * 




372 

“V” ■ 



* 





v **4' -r v v v *i’ -v v 

v At v v -r v v v if 

•y -v v v v '»* t r ir t v 'f v ir v *»* t v ^ 





3 74 








375 






04355 


37 6 

TAKEOFF 

EQU 

*-Z 


0 iJ 3 5 5 

0 113 0 0 JOG 


377 


UJP 

IMPURE 


0 0 35 6 

541U4264 


378 


LOI 

QKSTABX1, XI 

LOAD POINTER INTO DKSTATAE 

0 0 35 7 

20100270 X 


379 


LDA 

DKSTATA8,X1 

LOAD THE CONNECT CODE 

0 0 3 8 0 

12077760 


380 


SHA 

-15 

EXTRACT THE QEVICE NUMBER FROM IT 

0 0 361 

536 0 UU0 0 


381 


T AI 

X2 


00362 

17200037 


382 


ANI 

378,X2 


0 0 363 

1447777 7 


3 8 6 


C/1 

m 

<t 

Ul 

'777778 


0 0 364 

40200112 X 


384 


STA 

ARRAYT8L,X2 

SAY DEVICE IS NOT ON LINE 

0 0 3 6 5 

01004370 


385 


UJP . 

♦-Z + 3 


0 0 366 

20100357 X 


38 6 


LDA 

OKST ATAB,Xi 

LOAD A CONNECT CODE 

0 036 7 

40177777 X 


. 387 


STA 

DKST ATM!,XI 

REPLACE PREVIOUS ENTRY 

0 0 3 7 0 

10.10 00 70 X 


38 8 


IS I 

DKSTAT3L,Xi • 

SKIP IF DONE 

0 0 371 

010 0 4 366 


339 


UJP 

*~Z~3 


0 0 372 

54104271 


39 Q 


LUI 

MSPPCS,XI 

TELL THE CONTROL BLOCK THAT IT 

0 0 373 

20100273 X 


391 


LDA 

MSF8LK,X1 

WAS NOT MOUNTED 

0 0 374 

5 3 5 Li 0 U 0 0 


39 2 


TAX 

Xi+CNBLK 


0 0375 

1447 7 76 0 


S 9 3 


ENA f S 

7776 0B 


.00376 

4010 00 0 0 


•3 94 


STA 

0 *Xi+CNBLK 


0 0 377 

010 043 55 


39 5 ' 


UJP 

TAKEOFF 





4> 9 6 

39 7 








398 






0 4400 


399 

LACHIT 

EQU . 

*-Z 


0 0 4 0 0 

010 00 0 0 0 


40 0 


UJP 

IMPURE 



0 44 01 


% G i 

LACHABO 

EQU .■ 

^"2 


0 0 4 01 

2240Q000 

80000 0 

4S2 


LACH. 

IMPURE,XI 


0 0402 

02104400 


. 4 Cl 3 


■ui 

: LACHIT,XI 





4 0 4 
.405 






U 44 0 3 


4 0 6 

ERROR 

EQU 



00403 

110 2 22 3 0 

04446 0 

4 0 ? 


EC HA 

NOACCEPT 

SAY WE ARE IGNORING THE REQUEST 

00404 

14700U41 


4 0 8 


ENQ 

NOACCEPL 


0 0405 

01004325 


■ 4 0 9 


UJP 

GALLOP 




0 

3 

O 

O 

o 


o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 
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HSFMOUNT 


0 040 6 
0 040 7 

0 0410 
0 0 411 
0 0412 
0 0413 
0 0414 
0 0419 
0 0 416 
0 0 417 
0 042 0 
0 0421 
0 0 422 
0 0 423 
0 0424 
0 0425 

0 0 426 
0 0 427 
00430 
0 0 431 


0 0432 

0 0 434 
0 0435 
0 0 436 
0 0437 
00440 
0 0 441 


G 




412 

-i- v -v- v r v v 

V 

V '4' V '4* *4' "4' V '4' V V 

T r *4- V Y Y Y V -Y Y Y Y Y Y V 

V Y Y V 

Y Y '4* Y V V Y Y Y Y V V Y "4* Y Y "Y V Y Y Y Y Y Y YY-^TYYYYYYYn?- 

G 



413 

if. 

THIS ROUTINE IS ENTERED 

WHEN 

A FATAL DISK ERROR OCCURES WHEN * 




414 

V 

READING A 

DISK LABEL OR 

WHEN 

A LABEL IS BAD. IT CHECKS TO * 

o 



415 

V 

SEE IF TH 

E OPERATOR INSTRUCTED THAT A LABEL BE WRITTEN OR * 



416 

“V" 

FAKED 



y 



417 

v 

-r *r* Ar v -r v v y -i* 



V ^ V Y Y V Y Y Y Y ^ ^ ^ ^ Y Y TP Y V Y if Y Y Y Y if 





T ' 1 ' T "4' *J' V -V V V ■ 

T Y Y Y Y -»* Y 'l-»- t --4- - 4 - Y Y 

Y Y A 1 Y 




419 






o 



420 






044 0 6 


421 

3AOREAD 

EQU 

*-z 




47304353 


42 2 


STI 

EXITADD » X3 


SAVE THE RETURN ADDRESS 


14300000 


423 


ENI 

0 , X3 


REMEMBER THE DISK ERROR 

o 

U441G 


424 

8A0LA8EL 

EQU 

“•-2 




54104444 


425 


LOI 

CHARPOS . XI 


CHECK FOR MORE INSTRUCTIONS 


00704400 


42 6 


RIJ 

LACHIT 



o 

04600073 


427 


AS E 

HA , A 


DELIMITER MUST BE A COMMA 

01004426 


428 


UJP 

BAOPRINT 



14200007 


429 


ENI 

MOV£L~i,X2 


MOVE A FAKE LABEL INTO THE 


2 0 2 0 44 32 


43 0 


LDA 

M G V £ t X 2 


BUFFER 


40204700 


431 


STA 

LABELBUF » X2 



02604415 


432 


I JO 

*-2-2,X2 


CHECK WHAT TO DO 

00704400 


43 3 


RIJ 

LACHIT 



14700026 


434 


ENQ 

HAFA 


■AFAKEF WE READ A GOOD LABEL 

o 

03404264 


435 


AQJfEQ 

QKSTABXl 



14700043 


436 


ENQ 

HALA 


SHOULD WE *LA8EL* THE PACK 

04300000 


43 7 


ISE 

0 ,X3 


DGNT IF THERE WAS A DISK ERROR 


03404264 


43 3 


AUJ,EQ 

OKS TABXI 


WRITE OUT A NEW LABEL SOMETIME 


0 4 42b 


43 9 

BADPRINT 

EQU 

*-Z 


REMOVE THE DEVICE FROM THE TABLES 

UU 704355 


44 Q 


RTJ 

TAKEOFF 


11022403 

04500 3 

441 


ECHA 

LABHESS 




14700027 


442 


ENQ 

LA8HESSL 



o 

01004325 


443 


UJP 

GALLOP 





444 








445 







04432 


446 

HOVE 

EQU 

*~2 



0 

044 32 


447 

0S30SER 

EQU 

*-Z 



4 b62 036 0 


448 


BCD 

2»0:S3 USER 



0 4 4 3 4 


449 

NUMBER 

EQU 

*-Z 




00000000 


45 0 


VFO 

A24/IMPURE 



o 

00077340 


451 


DEC 

203*160 


NUMBER OF SECTORS ON AN 854 

0000oooa 


452 


OCT 

0 



OOQOOOOO 


453 


OCT 

0 




0 0 0 0 0 00 0 


454. 


OCT 

.0 7 : ■ 



o 

00000000 


45 5 - 


OCT 

0 . 


CODE FOR AN 854 

a o o i o 


456 

HOVEL 

EQU 

*-2-MOVE 




O 


O 

o 

o 

o 

o 

o 

o 


o 







ASSEMBLER/OSo Vi,0 


00442 

0 4 h 4 2 
0 0 0 0 0 0 0 0 
22211 
22212 
22213 

00443 

0 4 44 3 
00000000 

0 0 444 

0 44 44 
00000000 

0 0445 

0 4445 
0 U 0 U 0 0 0 0 

0 0 446 

22230 

25515146 

0 0 041 

0 0 456 

0 0 460 

2 2 2 71 
77243162 
223 0 3 
23426067 
00025 

0 0463 

0 0 466 

22316 
25772431 
22330 
67676767 
0 0 0 3 Q 

0 0 471 

0 0 6 0 0 

00506 

22346 
25772321 
0 0 0 35 
22403 
23427722 
0002/ 


09/21/74 2222 PAGE 

4 9 3 
499 
46 0 

461 

462 

463 

464 

465 

466 

46 7 

468 

469 

47 0 
471 
47 2 


4 75 
4 7 6 
477 

47 8 
479 

48 0 

481 

482 
4 8'3 
48 4 

485 

486 
98 7 

488 

489 
990 

491 

492 

493 

494 
995 
496 


10 MSFMOUNT 
CONGO IDE EQU 

y fo 

CHANNEL EQU,C 
EQUIPMEN EUU,C 
UNIT EQU »C 


FREEBLK EQU 
OFD 

CHARPOS EQU 
VFD 

3UFFAD0 EQU 
VFO 

NGACCEPf EQU, 
BCD , 

■NOACCEPL EQU 7 

QEVUNEQM ECU, 
BCD, 

OEVUNEQ EQU, 
BCD, 

OEVU.MEQL EQU» 

OEVOKHES EQU, 
BCD, 

OEVOK EQU, 
BCD, 

OEVOKMSL EQU, 

CANTOON EQU, 
BCD, 

CANTCQNL EQU, 

LABMESS EQU, 
BCD i 

LA3MESSL EQU, 
RSS 


OOOGQO 000.00 ooooo ooo 



*-Z ADDRESS OF THE FREE STORAGE BLOCK 

09/000,A15/IMPURE IF IT HAS BEEN OBTAINED 

*-Z 

09/000,A15/IMPURE 
"*-2 

09/000,A15/IMPURE 

*-Z 

33,ERROR IN DISK PACK MOUNT REQUESTa 
•-Z-NOACCEPT 

33- ■** 2 

10, DISK PACK 
•>—2 

11, XXXXX FREEa 
•-Z-QEVUNEQM 

z 

10,DISK PACK 

14 , XXXXX ON LINEa 
--Z-OEVOKMES 

2$. ^ 2 

291CAN NOT CONNECT TO DISK PACKa 

♦-ZrCANTCON 

*-Z 

23,BAD LABEL ON DISK PACKa 
♦-Z-LABMES-S 

0 ' . ■ . 
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0 0 5 0 7 

0 05 10 
00511 
0 0512 
0 0513 
0 0 514 
0 0515 
00516 
0 0517 
0 0 5 2 0 
0 0521 
0 0 522 
0 0 523 
00524 
0 0 525 
0 0 526 
0 0527 
0 053 0 
0 0 5 31 
0 0 532 
0 0533 
0 0534 
0 0535 
0 0 536 
0 0537 
0 0540 
0 0541 
00542 
00543 
0 0 544 
0 05 45 

0 0546 
0 0 547 
0U550 
U0551 
00552 

0 0 553 
0 0 554 
0 0 555 
0 0556 
0 0557 
0 0 56 0 
0 0561 
00562 
0 0563 
0 0564 
0 0565 
0 0566 
0 0 567 
0 0570 
0 0571 
0 0572 
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HS.F MOUNT 






v v v u~ u~ -v v v -r v v v v 'r v v v t r 
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49 9 

V 






500 

*.'■ THIS CODE 

WILL CHECK FOR 

DEVICES THAT HAVE BEEN UNEQUIPPED * 




5 01 

* and make 

ANY CHANGES TO 

THE TABLES THAT ARE REQUIRED * 




5 0 2 

* 







•v v v v '«* '<* r v v v t "«* v r “V* v 

'f V V Y Y Y V Y VV 'A Y Y 

Y Y YY Y Y ^ Y Y -ir Y V -Y V ^ Y Y Y Y -Y" Y Y Y Y Y Y Y Y Y Y Y Y Y Y Y -'?■ Y Y 




50 4 







505 




04507 



50b 

CHECKUN EQU 

*-z 


01000000 



507 

UJP 

IMPURE 


04510 



503 

CHECKUN! ECU 

*-Z 


20000120 

X 


509 

EDA 

BIT23 

LOOK FOR DEVICES THAT HAVE BEEN U 

21000510 

X 


510 

LDQ 

BIT23 


14100056 

X 


511 

ENI 

MSUNITS » XI 


06100373 

X 


512 

ME Q 

MSFBLK * 1 


010 0 450 7 



5 1,3 

UJP 

CHECKUN 


53100000 



514 

TIA 

XI 

SAVE MSFBLK POINTER IN X3 

53700000 



515 

TAI 

X3 


20100513 

X 


SIS. • 

L.0 A 

MSFBLK f XI 

LOAD THE CONTROL BLOCK POINTER 

56600000 



517 

TAI 

X2+0N8LK 


20200000 



513 ■ 

LOA 

0 j X2+CNBLK 

HAS THE OPERATOR GK7ED THE PACK 

14577760 



519 

ENQ , S 

7 7 7 6 0 B 


03404546 



520 

AQJ »EQ 

CHECKUN8 

JUMP IF NOT 

14777777 



5 21 

ENQ 

7777 78: 


27200000 



522 

LOL 

0 » X2+CNBLK 

LOAD THE CONNECT CODE 

14100370 

X 


5-, >'■ *£ 

w W 

ENI 

OKSTATSLiXl 


06100366 

X 


524 

MEQ 

DKST ATABfl 

- 

00004530 



5 2 5 . 

HIT 

'•'—2 


20100527 

X 


526 

■ L. 0 A 

DKSTATABjXl 

LOAD THE CONNECT CODE WORD 

01004535 



527 

UJP 

--2 + 3 


21100531 

X 


52 & 

LOQ 

DKSTATABfXI 

LOAD A CONNECT CODE WORD 

41100367 

X 


529 

STQ 

QKSTATH1,X1 

REPLACE PREVIOUS ENTRY 

10100526 

X 


53 0 ■ 

I SI 

DKSTATSLfXl 


01004533 



53 i 

UJP 

«:~Z~3 


12077760 



532 

SH A 

-15 


5 3.5 0 U 0 0 0 



53 3 

TAI 

XI. 


17100037 



534 

■ : :mi: 

.3-7B « XI 

SAVE THE UNIT NUMBER 

14477777 



5,35 

EHAiS.' 

7.7 7.7 7 B - 


4 U j_ 0 u 36 4 

A 


53,6„. 

\:>/STA: 

. .ARR AYTBL iXl 


20200Oul 



537 

LDA 

LP-* X2+CNBLK 

LOAD' THE DEVICE HUMBER 

01304553 



538' 

UJP 

CHECKUN9 


0 4546 



539 

CHECKUN8 EQU 

*-Z 


146000OU 



54 0 

ENA . 

Q 

SET THE ACCOUNTING WORD-TO ZERO 

40200005 



541 

, ; ST A ■ : 

8LKR» X2 + CNBLK 


1447777 a 



542 

. ' 'ENA rS 

-1 


34000:301 

X 


543 

: ;■ ■■ RAO . 

SCREAM 

TURN OFF THE NOISE 

2 0 3 0 0 314 

X , ' 


544 

■ LiiA 

MSF NUHB » X3 

LOAD THE PACK NUMBER 

04553 



545 

CHECKUN9 EQU 

'. # — 2 


14700000 



546 

ENQ 

0 

FORGET ABOUT THIS DEVICE 

41300552 

X 


.547 

STQ 

MSFNUMB j X3 


4130051? 

x 


543 

STQ 

MSF8LK » XS . . . 


17677777 



5 49 

' ANA 

777778 


1410 0 0 04 



55 a 

v ENI 

4 » XI 

PRINT OUT THE DEVICE NUMBER 

1307774? 



551 

SHAG 

~24 


51000320 

■ X 


552 

OVA 

.. 010 ,.. .... 


43422303 


04460 3 

55 3 

SQCH 

DEVUNEQ j XI 


02504560 



55 4 

I JO 

*~Z~3 f XI 


143 0 0:0 0 3 



555 

ENI 

3 5 X3 

8 WORD BLOCK 

53200000 



556 

-TIA 

X2+CNBLK 

FREE THE CONTROL BLOCK 

00700340 

X 


557 

RTJ 

FREEMEN. 


14204510 



' 55 8 

ENI 

CHECKUNlj X2 

ENTER THE. RETURN ADDRESS 

11022271 


04456 1 

55 9 

ECHA 

OEVUNEQM 


14700025 



560 

ENG 

DEVUNEQL 


01000326 

X 


561 

UJP 

OPMSG 













CD 










CD 
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Q) 





6 6 4 

■v 




* 






5 6 b 

V 

THE FOLLOWING CODE IS MOVED 
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